home *** CD-ROM | disk | FTP | other *** search
/ Joystick Magazine 1999 November / cd joystick no109 novembre 1999.iso / Data / sharewares / utilitaires / XQXSET50.ZIP / _SETUP.1 / XQ Wallpaper XY.xpl < prev    next >
Text File  |  1999-05-29  |  2KB  |  74 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 3.1"
  2. "TYPE"="2"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Other"
  5. "NAME"="Wallpager Origin"
  6. "LANGUAGE"="VBScript"
  7. "TEXT 1"="Origin left (X)"
  8. "TEXT 2"="Origin top (Y)"
  9. "DESCRIPTION 1"="Use this settings to specify the origin of your current wallpaper. This can be used to move the picture to the bottom or the right corner of your screen (all values in pixels)."
  10. "DESCRIPTION 2"="After you have changed the values, you need to restart or re-login to see the changes."
  11. "DESCRIPTION 3"="To remove the settings again, clear both fields and apply the changes."
  12. "AUTHOR"="Xteq Systems"
  13. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  14. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  15. "COMMENT 2"="Version 1.1"
  16.  
  17.  
  18. sP="HKCU\Control Panel\Desktop\"
  19. sV1="WallpaperOriginX"
  20. sV2="WallpaperOriginY"
  21.  
  22. Sub Plugin_Initialize 
  23.  i=RegReadValue(sP & sV1)
  24.  if IsEmpty(i) then
  25.   SetUIElement 1,""
  26.  else
  27.   SetUIElement 1,i
  28.  end if
  29.  
  30.  i=RegReadValue(sP & sV2)
  31.  if IsEmpty(i) then
  32.   SetUIElement 2,""
  33.  else
  34.   SetUIElement 2,i
  35.  end if
  36. End Sub
  37.  
  38. Sub Plugin_CheckData(ElementIndex)
  39. End Sub
  40.  
  41. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  42.  s=GetUIElement(1)
  43.  if len(s)=0 then 
  44.  
  45.   'User wants to kill value
  46.   s=RegReadValue(sP & sV1)
  47.   if IsEmpty(s)=false then
  48.    Call RegDeleteValue(sP & sV1)
  49.   end if
  50.  
  51.  else
  52.   Call RegWriteValue(sP & sV1,s,1)
  53.  end if
  54.  
  55.  s=GetUIElement(2)
  56.  if len(s)=0 then 
  57.  
  58.   'User wants to kill value
  59.   s=RegReadValue(sP & sV2)
  60.   if IsEmpty(s)=false then
  61.    Call RegDeleteValue(sP & sV2)
  62.   end if
  63.  
  64.  else
  65.   Call RegWriteValue(sP & sV2,s,1)
  66.  end if
  67.  
  68.  
  69.  Restart
  70. End Sub
  71.  
  72. Sub Plugin_Terminate 
  73. End Sub
  74.